<script>on mouseUpglobal gCDVolume6,MFinderif not MFinder and fld "Title" = "Success Stories" thenarchiveGlobalselse if fld "Title" contains "Literature Guide" then-- global gLockFlag-- put true into gLockFlag-- lock screenshowPres fld "PresPath"-- unlock screen with iris openexit MouseUpend ifshowPres fld "PresPath"end mouseUp</script>
</part>
<part>
<id>10</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>0</left>
<top>0</top>
<right>512</right>
<bottom>22</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>PresPath</name>
<script></script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>173</left>
<top>311</top>
<right>236</right>
<bottom>342</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>View Hider</name>
<script></script>
</part>
<part>
<id>13</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>0</left>
<top>81</top>
<right>512</right>
<bottom>98</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>CopyPath</name>
<script></script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>285</left>
<top>315</top>
<right>328</right>
<bottom>336</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>DownLoad</name>
<script>on MouseUpglobal gTheError,gCDVolume6SpinCursorput "" into gTheErrorput fld "CopyPath" into theFilesput last char of line 1 of theFiles = ":" into aFolderif aFolder thenput "These files are" into promptput pathWay(gCDVolume6 & line 1 of theFiles) into copyPathput folderSize(copyPath) into reqSpaceelseput "This file is" into promptput FileSize(gCDVolume6 & line 1 of theFiles,"nodialog:gTheError") into reqSpaceif gTheError is not "" then put gTheError into reqSpaceend ifput "" into gTheErrorif reqSpace contains "Error" thenanswer "Unable to copy file(s)."& return & reqSpaceexit MouseUpend ifanswer prompt && reqSpace div 1024&"K and may take a while to copy." with "Cancel" or "Continue"go this cdif it = "Cancel" then exit MouseUpSpinCursorput folderPath("This Level","Select a level to place the files:") into thePathgo this cdif thePath = "" or last char of thePath is not ":" then exit MouseUpput char 1 to offset(":",thePath) of thePath into theVolumeput diskSpaceAvail(theVolume) into spaceAvailif gTheError is not empty thenanswer "Sorry, unable to copy files: " & return & gTheErrorput "" into gTheErrorexit mouseupend ifif spaceAvail < reqSpace*1.05 thendelete last char of theVolumebeepanswer "There is not enough space on the volume “"& theVolume &"” to copy" & return & "“" &¬fld "Title" & "”." & return & "Space required : "& reqSpace div 1024 & "K" & return &¬"Space available : " & spaceAvail div 1024 & "K" with "Cancel"exit MouseUpend ifSpinCursorif aFolder thenput gCDVolume6 & pathway(line 1 of theFiles) into sourcePathif last char of sourcePath = ":" then put lastFolder(sourcePath) after thePathend ifSpinCursorif length of thePath+31 > 250 thenbeepanswer "You specified a path too far down (more than 250 chars)."& return &¬"If you wish to install this, please try again." with "Cancel"exit MouseUpend ifprompt 1,"Copying File(s)...Please wait..."SpinCursorif aFolder thenCopyFolder sourcePath,thePathput the result into OsErrelseFileCopy (gCDVolume6 & line 1 of theFiles),thePathput the result into OsErrend ifprompt 3SpinCursorif OsErr contains "Error" thenanswer "Sorry, unable to copy files: " & return & OsErrexit mouseupend ifEnd MouseUpfunction lastFolder thePathput number of chars of thePath into PathLengthrepeat with i = PathLength down to 1if char i of thePath = ":" then exit repeatend repeatsubtract 1 from irepeat with z = i down to 1if char z of thePath = ":" then exit repeatend repeatreturn char z+1 to i of thePath &":"end lastFolder</script>
<script>on LinkToBackLinkToCard "Map","iris close"end LinkToBackon openCardglobal gNoLaunch6,gCDVolume6if gNoLaunch6 contains "True" thenif gNoLaunch6 contains "Volume" thenspinCursorif (gCDVolume6 is in VolumeList()) then put false into gNoLaunch6end ifend ifget (gNoLaunch6 contains "True") and (short name of this cd ≠ "Electronic Forms")if the short name of this card = "Apple Literature Guide" then set visible of cd btn "Script Hider" to itset visible of bg btn "View Hider" to itset visible of bg btn "Copy Hider" to itunlock screen with iris openend openCard</script>